{
  read (k);
  read (n);
  r := 1;
  while k > 0 do {
    if k % 2 != 0 then r := r * n else skip;
    n := n * n;
    k := k / 2
  };
  write (r)
}

